home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CPY / IHADCB.CPY < prev    next >
Text File  |  1987-10-29  |  2KB  |  49 lines
  1. ****************************************************************************
  2. *
  3. * IHADCB - I HAD A DCB DSECT FOR PC/370 RELEASE 2.0+ FILE DATA CONTROL BLOCK
  4. *
  5. * FOR MORE INFORMATION SEE SVC.DOC
  6. *
  7. ****************************************************************************
  8. IHADCB   DSECT
  9. DCBDCB   DS    CL4 CONSTANT EBCDIC C'ADCB' DCB IDENTIFIER
  10. DCBDSN   DS    A   ADDRESS OF UP TO 64 BYTE PATH/FILE SPEC FOLLOWED BY ZERO
  11. DCBFID   DS    H   FILE HANDLE ASSIGNED BY MS-DOS AT OPEN (X'FFFF'DEFAULT)
  12. DCBFLG   DS    X   DATA CONTROL BLOCK FLAGS (ONLY DFTRAN MAY BE SET BY USER)
  13. DFOPEN   EQU   X'80' FILE OPEN
  14. DFUBUF   EQU   X'40' USER DEFINED BLOCK AREA (NO DYNAMIC ALLOC/DEALLOC)
  15. DFOUT    EQU   X'20' OPEN FOR OUTPUT
  16. DFGEOF   EQU   X'10' END OF FILE PENDING ON SHORT BLOCK
  17. DFTRAN   EQU   X'08' TRANSLATE GET/PUT RECORDS FOR ASCII FILE
  18. DFADCB   EQU   X'01' ASSIST DCB - DO NOT TRANSLATE 370 ADDRESSES
  19. DSORG    DS    C   DATA SET ORGANIZATION (R=RANDOM, S=SEQUENTIAL)
  20. MACRF    DS    C   DATA SET ACCESS MODE (R=READ, W=WRITE, G=GET, P=PUT)
  21. RECFM    DS    C   DATA SET RECORD FORMAT (F=FIXED, V=VAR, T=TEXT)
  22. EOR      DS    X   END OF RECORD CODE (DEFAULT IS LINE FEED X'0A')
  23. EOF      DS    X   END OF FILE CODE   (DEFAULT IS CTL-Z X'1A')
  24. LRECL    DS    H   RECORD LENGTH (2<LRECL<64K-16)
  25. BLKSZ    DS    H   BLOCK  LENGTH (2<BLKSZ<64K-16)
  26. EODAD    DS    A   END OF DATA EXIT ADDRESS
  27. SYNAD    DS    A   SYCHRONOUS ERROR EXIT ADDRESS
  28. RCD      DS    A   RECORD AREA ADDRESS FOR GET/PUT
  29. BLK      DS    A   BLOCK  AREA ADDRESS (0 FOR DYNAMICALLY ALLOCATED)
  30. RBA      DS    A   RELATIVE BYTE ADDRESS FOR RANDOM READ/WRITE
  31. REN      DS    A   RENAME ASCIIZ FILE (ONLY USED BY RENAME SVC)
  32. IOCNT    DS    F   BLOCK I/O COUNT SINCE OPEN
  33. PRECL    DS    H   PHYSICAL BLOCK SIZE OF LAST READ/WRITE
  34. *
  35. * RESERVED AREA FOR USE BY PC/370 IOS SUPERVISOR WHILE FILE OPEN
  36. *
  37. DSNSG    DS    XL4 SEGMENT:OFFSET OF DCBDSN PATH/FILE NAME
  38. EODSG    DS    XL4 SEGMENT:OFFSET OF EODAD EXIT
  39. SYNSG    DS    XL4 SEGMENT:OFFSET OF SYNAD EXIT
  40. RCDSG    DS    XL4 SEGMENT:OFFSET OF RECORD AREA FOR GET/PUT
  41. RENSG    DS    XL4 SEGMENT:OFFSET OF RENAME FILE NAME
  42. BLKSG    DS    XL4 SEGMENT:OFFSET OF BLOCK AREA
  43. BLKPTR   DS    XL4 SEGMENT:OFFSET OF CURRENT RECORD IN BLOCK AREA
  44. BLKEOD   DS    XL2 OFFSET OF CURRENT END OF DATA IN BLOCK AREA
  45. BLKEND   DS    XL2 OFFSET OF END OF ALLOCATED BLOCK AREA
  46. WLRECL   DS    H   REVERSED LRECL
  47. WBLKSZ   DS    H   REVERSED BLKSZ
  48. LDCB     EQU   *-IHADCB
  49.